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This document describes the STRING programing language, which has bum implemented 
on the MAC Artificial Group's FDF-b computer- In the STRING system, all objects -- 
constants , variables, functions and programs — are stored and processed in the form 
Of strings of characters. The STRING language is unusually concise, yet at the same 
tlfne unusually rich in commands, including a strong arithmetic facility. 

EosUelly, the SHtlHG program is used in a Conversational manner; the user types in 
a character string terminated by the character ALT MODE [alias ESC} and the program 
evaluates the string and types out its value * However, since the -evaluation tafi 
involve any amount of iteration, recuraion, input and Output, evaluating a string 
may equally be regarded as running a program, with the returned value of no conSe¬ 
quence, 

Notation and Definitions: 

m. ts the character 11 space' 1 . 

■=^> means ’’evaluates to"- 

* i t ^ * means " a and each evaluate to £ ". 
null describes the String of no characters, 
a word is a character String delimited by a speed¬ 
s ' 1 means "the character x , n times in a tOW Pr - 

ITEHS, OPERATORS AND OPERANDS ; THE CURRENT VALUE 

A string being evaluated 19 processed from left to right, and aa part of that 
processing is parsed into substrings of two types: itoms and operators . Items 
have substantive meaning: that is, an Item has a value '’’of its own". Operator* 
take one or two operands and produce a value which depends on the values of the 
operands- An operator which takes one operand la termed unary ; one which takes 
two is binary - A unary operator immediately follows its operand; a binary oper¬ 
ator Immediately follows its first operand and immediately precedes its second 
Operand, which la an item. . (A few operators in fact ignore their left operand -'I 
If a binary operator is immediately followed by another operator» the second 
operand of the binary operator It the null string between the two operators. 

(A null string evaluates to null-) 
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There Ie always maintained a current Valve : at the beginning of a string this 
is null; after an item {which is net the second operand of a binary operator) 
it is the value of tbit item; after a unary operator the value of that operator; 
end after the second operand of a binary operator, the value of the binary oper¬ 
ator, Hie Current value at the end of a string la whet Is returned as the value 
of the string, The current value when a binary operator is encountered is whet 
is taken as the first operand, and likewise as the operand of a unary operator; 
the value* of the item to Its right is taken as the second operand of a binary 
operator, (A very few binary operator* use the item to their right immediately 
as their Second operand, rather than its value, This will be made clear In the 
description of each such operator.) 

QUOTING 

The e imp lest type of evaluation is cnot-l ok , where the valve a acting is wished 
to have is given explicitly. The STRING system provides two quote notations: 

'■stg^=^ stg , where s_t^ is any String not Containing a (Space) ; 
t [stall & &tg (’’stiperquotc"') > where stg may he any character string; except chat 

atiy ]] in a eg my>a t he matched by a prior ' [ , 

,r Stg — and i [stg] ] are items, 

NUMBERS 

There are two types of numbers' preclag and Imprecise . A non-null character 
string is a precise number if it contains no characters except at least one digit 
to 9), and optionally a decimal point (alias period}, A non-null character 
string la an imprecla e number if it contains Ho characters except decimal point* 
digits, and atsign ( with at least, one digit or decimal point, and at least 

One -ItSign, (If there are no digits, the decimal point must not be the first 
Character,) Atsign in a number serves as a non“Significant digit, A number 
is totally imprecise if the first digit other than leading zeroes ia atsign- 
In a totally imprecise number, the number of ataigas to the left of the decimal 
point, or the number of leading zeroes to the right of the decimal point, indi¬ 
cate^ the order of magnitLEde of the number, 

A number ia an item; it evaluates to itself (is implicitly quoted), (Note: in 
a few cases a string of digits terminated by a decimal point or a comma is not 
taken as a quoted character string, but rather as a numeric modifier for a command 
or for evaluation control. Thea* case* will be described below,) 

5FACE, CARRIAGE RETURN, ETC, 

The character ^ (space) is an Item which evaluates to null. (Note: In some contexts 
the Space character has a special meaning and is not evaluated. For instance, It 
is the terminator of a *' quote-} Horizontal tab. Line feed, vertical tab, and form 
feed are unary operators which ignore their operand and return the null value- 
Carriage return is a unary operator which returns the current value as its value, 
i.e. has r.o effect. 



PARENTHESES 


It is frequently desired to have an expression more complicated than an item as 
the second operand of a binary operator. For this purpose ate provided ( ) parent 
theses, which may surround any strings except that a ) in chai String must he 
matched by a prior ( also thetsiti. The parentheses delimit an item as Seen from 
the string in which they appear. 

1«rh&n { is encountered, the current value is Set aside* and the string within the 
parentheses ia evaluated with an initial current value of null. The ) acts as 
the end of the string, end the value returned then is the value of the item which 
is delimited by £ ) . In other uords, ( causes a pushdown of one level and } 
causes a value to bo returned to the upper level. 

CONCATENATION 

1 binary operatOt concatenate . (Example: 1'2^12 .) 

binary operator reverse c one a ten ate , (Example: l,'2^>2l .) 

ARITHMETIC 

binary operator add . It is defined on precise numbers in the natural way, 

with the result similarly a precise number. If both operands ate numbers 
and either is imprecise, the result will be an Imprecise numbers the 
leftmost atsign in the result will align with the leftmost design in 
either operand; and for the purpose of determining the carry into the 
Significant portion of the result for each ataign in each operand will 
be taken a random digit (£ to 9) during the addition. 

Tf either Operand is not a number (with optional leading + or - sign}, 
but is an arithmetic expression (a string whose only operators are 
arithmetic ones), the result will be the correct erithmetic expression- 
In such a result all items extept numbers appearing in the two operands 
will appear in the same order (left-to-right} as they appeared in the 
operands, left operand first- Numeric terms may be rearranged, and 
possibly combined according to the rules? for two numeric operands, 

tf one operand is null, value is the other operand, 

f + binary operator reverse add . Like + but puts non-numeric terms from second 

operand before those from first. 

- binary operator subtract. Negates second operands then does ■+ , (Null 
negated is null-} 

s- binary operator reverse subtract . Exchanges operands> then subtracts, 

+ binary operator multiply , The Symbolic terms of the operands are handled 
as by + . 

When multiplying two numeric operands (or numeric parts of expression 
operands) there is first calculated the "significance of the result". 

This is a number which ia the minimum of: the number of Significant 
digits (excluding leading seroes) In the first operand; said number 
in the second operand and the current slfinif icanee . (The current 
s i fin i f loanee is set by c ormnand s d esc r ibed be low. } I f an ope r and 1 s 
a precise number t its number of significant digits is assumed to he 
infinite. In imprecise operands, the atsign is numerically of value 




the nuhierlc product will be imprecise If either OumotiC operand is, 
or if the number of digits in the result is as greet as the current 
Significance; end the number of digits to the left of the first atsign 
in the result will be equal to the precalculated "significance of the 
result"- Otherwise the numeric product will be precise, 
binary operator reverse multiply - 

binary operator positive multiply . Identical In effect to * , 
binary operator poaitive reve rs e multd ply ■ Identical to ,* . 
binary operator negative multiply . Kegates aecond argument„ then multiplies, 
binary operator negative reverae multiply . Exchanges operands, negatea new 
Second operand, then multiplies r 

binary operator divide. If both operands are numbers t divide precalculates 
the a igrrtj finance of the result in the same manner as multiply- Then 
if the significance of the result iE infinite, / performs division by 
the schoolboy algorithm and has the value of the quotient, If the 
significance of the result is the finite number n , exactly n quotient 
digits (net Counting, leading zeroes) are generated; the quotient is 
narked imprecise by a final atsign (after a decimal point if needed) ; 
this quotient is returned as the value► 

The remainder is created, and saved* see below. Hie quotient is negative 
if exactly one Of the operand* is; the remainder takes the Sign of the 
dividend. The results ate always Such that (quotient * divisor) + 
remainder ■ dividend 3 though with a possible loss of precision if the 
signifleance of the result is not infinite* The decimal point in the 
remainder aligns with that of the dividend; the number of digits provided! 
to the right of the decimal point in die quotient (if not zero) will 
be that number in the dividend minus that number in the divisor. 

If not both operands arc numbers, / does indicated division : It concat¬ 
enates its first Operand, the character / , and its second operand (Ifl 
parentheses if necessary)* Indicated division sets the remainder to 
null- 

In the a pedal case where the first operand ts null, / generates the 
reciprocal of its second operand. If the significance of the result 
is to be infinite, the operand is divided into l,fl n (1+ followed by n 
zeroes) where n is the total number of digits in the given operand 
(excluding leading zeroes)j if the Signifloanee is to be finite number 
m , then in digits of quotient are developed and the result is marked 
imprecise. Reciprocation generates a numeric remainder* 

In the ease where the second operand is null, value Ifl the first operand, 
and the remainder is not affected, 

binary operator reverse divide - Exchanges operands and divides - 
binary operator positive divide ; identical in effect to / - 
binary operator positive reverse divide ; identical to - 
binary operator negative divide , ffegates second operand and divides, 
binary operator negative reverse divide . Exchanges operands, negates new 
second oporand , divides. 




-v it/ binary operator divide for lnteact quotient , the quotient will be a precise 

number if Its number of Significant digits docs not exceed the calculated 
significance of the result A correct remainder is generated. 

,*/ binary operator reverse divide for integer quotient * 

,1F/+ binary operator rever se poai t ive divid e for integer quotient. 

Mh binary oper*tot reverse negative divide for integer quotient . 

EXAMPLES; (assuming current significance is infinite} 

5+3*2^ lb 

54(3*2)^ ] 1. 

"A+-B-2^-' , C+5.~ * C-A-B+3* 

4,6/2^2.3 (remainder is . (J) 

4-6/2-G' : &2 (remainder is .6} 

4-6/2 „ (remainder is , 6$) 

4,6 0/2. [Iff =£2,5 5 (remainder is , 

4'2/7^6 (remainder is (?) 

4 "2 ^ 4/2 (dees not affect remainder) 

,r K_yi^Jt/3. (remainder hull) 

SYMBOLS 

A string of letters and digits ( assign being taken as a digit) which contains 
at least one ietter (or a arcing consisting of nothing but atsigna) is a symbol, 

A symbol may he of any length. It it an item. A symbol may bd Cither defined 
flf undefined; initially all Symbols are undefined (except s , for which see below). 

An undefined symbol is implicitly quoted^ it evaluates to itself. A defined symbol 
has a symbol value H which is a character string that becomes associated with the 
Symbol as it is defined. The value of a defined symbol is the result of evaluating 
its symbol value. As the processor evaluates a typed-in string, if it encounters 
A defined symbol it sets aside its current position in that string, the current 
accumulated value, and other information regarding its processing of that string, 
and commences evalutthg the Symbol value in the sane manner as it would evaluate 
a typed-in string. Then if while processing the symbol value it finds it ha* to 
evaluate a defined symbol, it again sets aside it£ work and commences evaluation 
of that symbol's symbol Value. The evaluation of each Such String (tyoed-in atring 
OX Symbol value) is said to occur on a given 1 evel^ . The typtd-in String is on 
the top level, or level number 1; the symbol value of a symbol CftCOuntoted on level 
1 la evaluated on level 2 S efc. (The System as currently arranged has facilities 
for approximately 100-0- levels.) 

It ls possible t-o define a symbol in such A way that that definition Is effective 
only until the level on which it was defined returns a value to the next hightec 
level, A symbol So defined is called a level Symbol , and the number of the level 
on which it. was defined is associated with it as its definition level , A level 
symbol may be used on lower (greater-numbered) levels. A symbol not bo defined 
is called a universal aymbol , which is indicated internally by giving it definition 
lev*;l (#, More than one definition of a symbol may exist at a time, though each 
will have o different definition level. Only one definition is active at a ttme‘ 
that is the one with the largest-numbered definition Level (but not greater than 
^ the current level number). 
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DE.FIWIKG 

; (semicolon) binary operator 1 eve 1 dtf inc . Th-e operand to the right must be ei 
symbol; it is not evaluated. The accumulated v^lue to the left (the 
"current value") is preserved as the value of the semicolon operator•> 
as well as being its left operand. This operator causes the symbol to 
its right to become defined as a level symbol, with o symbol value iden¬ 
tic al to the loft operand and a definition level equal to the Current 
level of evaluation. If there was already a definition o£ the Symbol 
with the aame definition level,, that definition is completely removed. 
Any other existing definitions are allowed to remain, but they will 
not be active until this definition is removed. This definition is re¬ 
moved as evaluation returns from this level to a higher level (smaller 
numbered), 

, (comma) binary operator define - The operand to the right must be a symbol; 

it is not evaluated. The current value s9 this command is encountered 
is preserved as the value of the comma operator ? as well as being taken 
as its left operand- Comma causes tha symbol, to its right to he cotie 
defined as a universal, symbol with a Symbol Vilue identical to the left 
operand- Any and all existing definitions of this symbol (except those 
with definition level numbers greater than the number of the current 
level) are first removed* 

The symbol ® is always defined and always evaluates to ^ (space). 

Hote; Whan a definition is removed whose symbol value is still being processed 

on the Current level nr A higher one (sms 11 er-numbered) , although the dcfi- 
n if too ia retrieved th* symbol value part of It is preserved until evaluation 
of it is finished - 


EKAMFLES 


K+3,Y4K+3 

T^X+3 
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X+3,Z^ 9 

5,X*5 

Z=t>9 


\ 


os seeming X is undefined 
(nOi“) 

. illustrates formal 

definition of Y 


X now is defined 

H H H H HilluS crates numeric definition of 2 


[ [U*U+(V*V) ]1 ,FNl* U*U-h(V*V) function with parameters U and V 
[ [3lU_FHl] ] ,FH2 calls FNl with specific value for U, without 

affecting upper levels' definltion(s) of U 


EVALUATION CONTROL 


Of can it la desired to limit the depth in levels to which a Symbol ia evaluated. 
Such a usage tends to correspond to the use of a symbol as a string variable t 
rather than a formal expression. 


-svm where gym is any symbol, is an Item which evaluates to the symbol value 
of gym if gym 19 defined, and null otherwise. This symbol value is 
quoted, i-e- not evaluated, 

.-gym ccomiences evaluating sym in the usual manner, but imagined that every 

symbol to be evaluated in the symbol value of aym is preceded by exactly 
one period < 
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- f ■ 3ym: like . ,sym , but imagines two periods in front of each symbol except those 
which appear explicitly with one preceding period. 

The above description eittends to any number of periods, The ma x i nsum evaluation 
depth permitted iE a parameter of each lovel; for the top level if is jet larger 
than the number of available levels; when a symbol is not preceded by say periods 
the depth limit on the new level is set 1 less than on the current level; if 
there are a periods before the symbol, the limit on the new level ia the leaser 
of; n , and 1 lees than the current limits When the limit on s level would be 
lj that level ie not entered„ but instead of evaluating s symbol's symbol value 
on the new level that symbol value Is simply quoted, 

n-Sym where sym lb a symbol (except one composed only of s taigas), arid n is 
a string of digits interpreted as a decimal integer, is identical 
to writing n periods before sva. Briefly,, n-Sym^^sym f 


REMAINDER 

N (backslash) item remainder , defined by divide operation, BackslaEh possesses 
many propertiefi of a level symbol: when it becomes defined, a previous 
definition will bo removed only if if occurred on the same level; when 
evaluation returns to a higher level then the one on which the currant 
definition was created, that definition is removed and any higher-level 
definition becomes again active* Backslash is not s symbol. 

the cunn&nt Significance 

The torrent significance is a parameter of each level. When a level is entered, 
its current significance is set to the value *t that mwnent of the current signif¬ 
icance on the level above, 

unary operator set Current sIgnific ance ■ If the value of the operand ia a 
number, its integer part ia taken and the current sigrtlflcsnee on this 
level 1 e set to it, if it ia not a number, current significance is 
made infinite. Maintains current value, 

unary operator flet level if significance , This processes its operand like 

i? and sets the quantify to which the curreat significance is set when 
level 1 is entered. This does not affect the current significance, 

The current value is maintained. 

Initially the level $ significance is infinite, 

ARGUMENT 

t (up arrow) i tem arwuni c jit - When encountered, causes evaluation to visit the 
immediately higher (smaller-numbered) level. That level is the one 
in Which was found the symbol, in whose symbol vatue the up arrow was 
CttCCufi.tetad« The processing pointer on the higher level had been left 
]u*fc to tha fight of that symbol, The up arrow command commence b pro¬ 
cessing as if back on the upper level, es followst 

(1) the accumulated v*lut is set CO hull, 

(2) if the character to the right, of the processing pointer is is 

space, the pointer is advanced over it* 

(3) evaluation resumes in a normal manner on the higher levelj 

hut the character w ^space) is Created not as an tcew with 
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valve null , hut a& a signal to g,u hath to the lo^er level j 
carry In# the aetvmulatrd value on the upper level, as the 
value of the t + (If the end of the String, on the upper 
level Is encountered, that acts as such s signal too.) The 
upper level pointer is non tn the position just no the right 
of the space signal (or at the end of the string). Hence 
successive uses of f on a level evaluate successive arguments 
on the level above, passing the pointer over each in, turn. 
Performance of ^ is not a return to the upper level and therefore no 
level symbol definitions are removed. Those created on the lower level 
are invisible on the upper level, however. 

,t item quo ted a r eumen t . Mates use of the pointer on the level above. 

(1) if the character to the right of that pointer is a space, the 

pointer is advanced over it. 

(2) then the pointer is advanced until a space (or the end of the 

string) is encountered; the string of characters So passed 
over (not including the space at the end) is returned as the 
value of the ,t with no further evaluation. The pointer on 
the upper level is left to the right of the terminating space* 

Mote: The pushdown caused by ( is identical, as far as the Lower Level can SCO, 
to that done to evaluate 0 symbol; a new level is used in each case. The 
’"pop up 1 ' caused by ) is identical to chat when a value Is returned at the 
end -iif a string. So a level symbol definition occurring within ( ) paren¬ 
theses is cancelled at the ) ; also note that an unmatched ) can be used 
to mean "return the current value to the upper level", 

EXAMPLES: 5,X^5 

f [X+2]j,Y^X+2 
([Y*3j],£=*Y+3 
”tZ 
*£ d^Y+3 

K+2*3 the * was performed, the + was not 

. . .Zi t ^21 

”t+l w ,Pl+ t+1 
ir t*2_,T2* t*2 
Fl„5 *Pl,5_i£b 
T2„P 1.4/2 ^6 
T2„Fl_4^/2*c 
T2 W E1 

T2_ F 1^4„_ „/2 ^ - 5 la it space evaluated! 

ATTACH MODE 

Besides having reverse mode, the five combinative operators (concatenate, add, 
subtract, multiply, and divide) have attach mode and reverse attach mode* Tho 
attach process is described below for concatenation, with the details applicable 
to the othot attach mode commands listed- 

$’ binary operator a t tech c one a t cu a t o . Operand to the right must either be 
« symbol, Ot be one or more periods followed by a symbol (the form 
n.aym is not permitted in this context). First the $ ' evaluates its 
operands conventionally, and does a concatenation lifce f , returning 
the result of that concatenation as the value of the $' - Additionally, 
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5 - 

U 

s*+ 

S*- 
■ * 

, *- 

s/ 

$/+ 

: /+ 
: i- 


however N Che; $' defines a certain symbol with a syrebol value identical 
to- the concatenated result., If the right operand o£ the ?’ had no 
periods h or had just one, the symbol to be defined is the symbol in 
that right operand. But If the right operand had more than one period, 
said operand is at this time evaluated again with one fewer period . 

The resulting value is a character string which should begin with a 
symbol: and tha t symbol is the one defined as the result of the concat¬ 
enation- If the symbol to be defined had an active level symbol defin¬ 
ition at tha time 5' waa to (re)define it, the new definition is a 
level symbol definition' otherwise it is a universal symbol definition, 
binary operator attach reverse concatenate . Does reverse concatenate, defines 
original right operand as result. 

binary operator attach add . like $' but of course: does addition, not con¬ 
catenation. 

binary operator attach reverse add . 

binary operator attach subtract . 

binary operator a 11ath roverse_ subtract , 

binary operator attach multip ly, 

binary operator attach _pos it ivc -multiply . 

binary operator attach negative multipl y 

binary operator attach reverse multiplv - 

b ine ry operator a 11ach reverse pos lj^lve^ mult iplv , 

binary operator attach revorec. negative multiply . 

binary operator attach d jjy jdc - 

binary operator a 11 ach positive divide - 

binary operator attach negative divide . 

binary operator attach reverse divide . 

binary operator attach _raverse positive divide , 

binary operator attach reverse negative divide . 


a 

Mote: attach nod reverse attach modes also exist for ehe W operator (divide for 
integer quotient), including the positive and negative version® of it. 


CONDITIONALS 

Certain operator* , about tc be described , are termed ConditionalS i according 
to whether or not its operands -meet particular conditions, such an operator will 
or will not skip the next ward in the string being evaluated. If the skip con¬ 
dition is not met, processing resumes immediately to the right of the right oper¬ 
and. If the skip condition is met, the following steps are takenr {1} The char¬ 
acter to the right of the right operand is examined: if it is a space, the pro¬ 
cessing pointer is moved over it, (2) The pointer is advanced to the right until 
it passes bvar a space (or reaches the end of the string). However, a given 
Space will not be Seen if it is (a) inside [[ ]] superquotes; or (b) the termin¬ 
ator of a " quoteJ or (c> Somewhere within ( ) parentheses. The ( to be effec¬ 
tive in hiding a Space muse be encountered during the skip, i.a, it may not be 
outside the string of characters skipped over, 

- binary conditional operator skip If equal . Skips if the values of its two 
operands are Identical character strings. 

“\ i= binary conditional operator skip if not equal . Skips only if the values 
of Its two operands are not identical character string®. 
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In the following numeric comparison conditionals , if an operand is an imprecise 
number each atsign in it is replaced by o random digit (@ to 9) - 

binary conditional operator sklj? if nurneric gr ea ter . Skips if both operands 

are numbers (with optional leading + or - eigne) acid the firet ie greater 
than the second. 

±< binary conditional operator akip If numeric less . Skipa if both operands 

are numbera (with optional leading + or - eigne) and the first is lefta 
than the aecond. 

:> binary conditional operator ekip if not greater . Skips if both operands 

are (optionally signed) numbers and the first ift not greater then the 
second. 

binary conditional operator skip if not less - Skips if both ope rands are 

(optionally signed) numbera and the firet is not less than the second. 

H = binary conditional operator aklp If numeric equal - Skips if both operands 

are (optionally signed) numbers of equal numeric value¬ 
'll := binary conditional operator skip if numeric not equal - Skips if both operands 
are (optionally signed) numbers whose nematic values are not equal- 
3i= binary conditional operator aktp if not numeric equal - Identical EO - - 

Each of the conditionals in this section returns the Value of its rlfthl operand; 
with the numeric conditionals any atsigns in cither operand will have been replaced 
by the random digits actually compared* 

TAGS , CJdTOS A?m DISPATCHES 

[sym where syrn Is any symbol (or String of digits) is a tag , A tag ie used tc 
identify a point in a string being processed to which the processing 
pointer may be sent by ft goto- When processing passes through 3 tag, 
the current value la pot if feeted- 

]sym where sym Is similarly any symbol or string of digita ie a goto . Ef it ie 

performed, the string in which it appears is scanned from the beginning 
(t.e, left end) for an appearance of [eym . If that tag is found * 
processing resumes to the right of the tag. (If it is not found, an 
error results,) SJhen a goto is performed, the current value is set 
to null. 

where the character following the | Ie a carriage return or line feed is 
a "new line" cdemand which passes the pointer over characters to the 
right of the [ sc long as each is a carriage return or line feed , without 
affecting the current value- 

[ where the character following the [ is net | , carriage return, line feed, 
a letter, a digit, or stSfgn, is a null tag - 

where the character following the ] is not ] , a letter, a digit, or ataign, 
is the unary operator dispatch . The current value ia taken: if it 
begins with a symbol (or string of digits), the dispatch operator attempts 
3 goto cm that symbol. (If it is not found, processing resumes to the 
right of the ] .) If the current value does not begin with a symbol or 
string of digits (for instance, if it la null.) the diapatcb operator 
performs a null goto . This ia a goto to a null tag: to the null tag 
nearest to the left of the dispatch if there is one; the null tag nearest 
to the right of the dispatch otherwise; tf there is no null tag at all, 
processing resumea co the right of fhe diapatch. The dispatch operator 
aLways seta the current va1ue to nu11. 
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Note: The character I ia used both for 3 tag (followed by * letter or digit), 
for h open superquote" {followed by another [ ), for "ntw Hoe" (followad 
by any number of carriage returns and line feeds) , end for the null tag 
(otherwise). All evaluation, shipping , and searching: for tags is done from 
left to right (even when searching for the null tag nearest to the left), 
so that the case of multiple ['s in a row is always parsed the same way f 
vis -3 pairs are open superquotes, and then a single one is a tag or new- 
1 inn C coma nd - 

ADDITIONAL DEFINITION COMMANDS 


binary Operator define via ■ The right operand is evaluated - its value is 
expected to begin with a symbol and that Symbol is defined as a uni¬ 
versal Symbol with a symbol value identical to the left operand, which 
is also returned as the value of the operator, 
binary Operator level define via . Evaluates right opCtand like ,, and defines 
it as a level symbol like ; r 

binary conditional operator undefine .. Right operand must bo a symbol; it 
not evaluated, if it is defined, the active definition is removed. 
Then if no definition remain* (or the Symbol was undefined to start 
with) the 3 operator skip*. The current value is not used, except 
that it is returned as the value of the operator, 
binary Conditional oporetof undefjtie yia . Evaluates right operand like M 
and does undefine-and-or-skip like : . 


^ ADDITIONAL CONDITIONALS 


frsym where sym is any symbol, skips if sym is defined and not otherwise, 
current value is not changed. 

^sya like Jjsym but skips only if sym is not defined. 


The 


binary conditional operator skip if defined via - Evaluates right operand 

to get a symbol as does ,, then skips if that symbol Is defined. Value 
is left operand, 

binary conditional operator skip if net daf ■j L ned__vla . Like ## * except skips 
only if symbol to which right operand evaluates ie not defined. 

tinary conditional operator skip if number - If the current value is a number 
(with Optional leading +■ or - sign) this operator skips. The current 
value is in any case returned as the value of the operator. The SpSCc 
is absorbed as part of the operator and is not evaluated nor involved 
tn Che skipping. (However, it would be aeen by a skip by seme prior 
command,) 

unary conditional operator skip if LID t number . Like (fy but with inverted 
skip sense, 


EXAMPLES: [[f;Nib0,lX. N*FACTl.N-lJJ,FACTl 

[[t;N„,l;F^ [_N*> )^NS+F^l: -N„ | J ] , FACTS 

These are two alternative definitions of the factorial function. The first 
is recursive, and uses N4-1 levels to evaluate the factorial of N * The 
^ 3eoond is Iterative t and performs the null goto N times in the same case. 

When a choice exists he tween theae two approaches -- i to ration and recursion ■*- 
THE ITERATIVE METHOD IS HlflHLY RECOMMENDED, This 1* because (e) the number 
of available levels is not unlimited, and (b) a signifleant amount of overhead 
time is taken pushing down a level and popping up. 
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SEARCHING 

A Vftry important opbrAtiO-n that can be performed on character strings is that 
of searching in one string far an occurrence of sane other string. In the STRING 
system, all searches art perf omed cn (i-e- in) the search string , a separate 
search string is maintained on each level- Various cecimands set up or modify 
the search string (as well as search in it); initially upon entering, a level 
Its search string is set to wlh On a given level there is no access in, any 
way to the search strings of ether levels. Assecla Led with each search string 
are two pointers called X and r Each pointer may be between any two cbarac- 
ters of the search string, or at either end t subject to- the restriction that X 
wilt not be to the right o f &♦ (They ntay coincide r ) 

*- (left Arrow) binary conditional Operator Sodrch - 

(1) The right opErHnd is evaluated* If its value is null: no further action 
t& taken; the value of the Left operand is returned as the value of the 
*h i no ikip occurs. 

{2) The search Atting on this ltcvdl is Set to the value of the right operand.. 

{3) A- and are set together at the Left end of the search string. 

(d) The value of the left operand ia sought in the search string; if it 

occurs therein more than once, the Leftmost occurrence is the one found. 
If the null s tting is sought, it is found immed Lately at the beginning 
of the search string* 

(5) In the sketch string, X is placed just to the left of the string found„ 

and A just to Its right. If no matching String was found-, X end 
iire plated together at the right end - 

(6) The value of the left arrow operator is the Search &tting, the right 

operand, 

(7) If a match was found, the *■ skips; if not, no skip occurs- 

binary conditional operator, ILike*- except skips if match not found, or 
right operand null, 

binary conditional operator search right- to-left. Like *- , except: X And 
Jt* are started at the right end of the search string;, the rightmost 
occurrence of the sought string is found, 

;*■ binary conditional operator. Like except has skip sense of :*■ ■ 

E unary conditional operator continue search - Search string is searched right¬ 
ward from current position of for occurrence of operand. X and 
are positioned around said occurrence, or at the right end if none was 
found; skips if found, else not. The null string, if sought* is found 
immediately, Value is the search string. 

;E unary conditional operator, like ! but inverts skip sense. 

,! unary conditional operator continue search right-to-Ipft - Search string 

is searched leftward from £ for occurrence of operand. Other details 
as for ' . 

lE unary Conditional operator, like , E but skips if not found - 
PARTS Of THE SEARCH STRING 

< item left of Jt „ Evaluates to that portion of the search string left of X ■ 

> item tiftht of JS - Evaluates to that portion of the search string right, of 

JET 

,= icem. cencer, Evaluates co that portion pf the search string right of X 
acid left of A. 

O item left of JZ - 

i tem right 
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,b< 


n,^ 

>< 
n. >< 


Item cberacter right of J& , Has value of that character, and steps j^, to 
right ovtt the character r (If JZ is St the tight end of the search 
string, has null value-) 

item chaj_ac_tfeT_ tj&hjt of X ■ Has value of thst Character, does not mar e 
pointer - 

(n periods , then >) item chametors fight cf . Has value of n characters 
to right of JZ (ac es m-Ovy as there are, if less than n) j, and steps J*L 
over them- 

(where n is a string of digits interpreted as a decimal integer) like . n > 
has the value of the n characters to right of .^. f and stcpsj^ over 
then, 

^ n characters right of JL , no pointer motion* 


item character left of jC i Has value of that character, scepa jC to left 
ovcr it. 


"■>} Ue " | 


characters loft of 




rl^bt to loft)i Steps over them. 


Has value of those characters in never?* order 


^ ^ — C har*cters to left of Jh in reverse order, Ko pointer movement. 


unary operator variable characters right of If the current value is 

an unsigned (decimal) number, that number's integer part la taken aa 
n and this Operator has the value of n-> and steps n_ charactera 
to the right. If the operand is not an unsigned number, this operator 
has the value of > , but also places JU* at the right end of the search 
string. 

unary operator variable characters right oE £> , If the -current value is 

an unsigned numberj that number's integer part is taken as n and this 
Operator has the value of n-S<r Otherwise this operator has the value 
Of >< * No pointer is moved. 

£<, unary operator variable characters left of JL » If the current value is 

an unsigned numberj, that number's integer part is taken as n and this 
Optra tor has the v-nlue ef the n characters left of ^ in forward (left- 
CO-right) otdet* jC is moved to the left that many characters in the 
search String, If the operand is not an unsigned number, this operator 
has the value of C , and is placed at the left end of the search 
string. 

?£“> unary operator variable characters left of^ , If the current value is an 
unsigned number, that number's integer part la takeu as n aud this 
operator has the value of n.O , Otherwise it has the value of O . 

Mo pointer is moved. 


S ■> 


■v 


itCm word right of M , (1) If the character to the right ofis a space, 
is stepped over it. (2) The characters right of ^ up to but not 
including the first space (or the end of the search string) are returned 
as the value of the ,> and is stepped ever them, 

\ 

Like hut gets n word e - Step continues up 


■*>? 
n ,> J 


item words right of 

to the nch space. 


■M 


it on 


words right of jS - (I) If the character to the right of jL is a space, 

that character ia ignored. {£) Characters right of up to but not 
including the nch space are returned as the valve of the operator. 
Neither pointer ia moved. 
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item words Left of X , (1) If the character to the left of jC is a sj)K«, 

X is stepped over it, (2) 'Che characters to the left of JJ leftwards 
up to but not including the nth apace are returned as the value of 
this command and X is stepped over them. The value appears with the 
words ^separated by spaces) in reverse order, each word spelled forwards, 

em words left of Jl , Like except (a) process starts to left of -K \ 

(b) neither £ nor is repositioned. 

SEARCH STRING MODIFICATION 

; = unary operator re pi see c enter ■ Old center frf search String (between £ 
andJS) 1 b deleted and operand is inserted there- Y£leP is entire 
(ruod i f ied ) s e ar ch b t rt ng. 

; unary operator replace left . did left part of search s tring (left of X) 

Is deleted and operand takes ite plate. Value is now Search string* 

; unary operator rep1ace right . Right of is replaced by operand3 value 
ia search string. 

i ,sym define as search string , the symbol sym be corses defined as a universal 
symbol with 0 Symbol value identical to the current search string. 

The pot it ions of X and are also saved as part of the definition, 

(That would not b* the case i f the symbol were defined in terms of 
something whofee ’’value is the search string 11 , since Ji and are not 
inherent in that value.) This operator does not affect the current 
value, or modify the Search string, 

;isym level,define as search string , like but defines as level symbol- 

.:eytn item restore search Strin g, The Search string is set to the Symbol value 
of the Symbol Sym - If the active definition of sym was performed by 
: h or :; then an! l are set to their positions saved in the defi¬ 
nition, Otherwise and JL are set to the left end of the search 
string. This command baa the value of the new search String- 

Note: The commands : t and provide the only means of saving search pointers 
in a definition, and .; provides the only way such saved pointers may be 
accessed- Any uec of a symbol defined by or ;; except by the -; command 
gets the symbol value as if the pointers were not there. 

EMMFLES: An elementary use of the search string is to edit function definitions. 
Suppose -FACTS'? t+»J;F„ ■ -N^ 

and T-fN should be t;H instead. To edit this, 

"t-Mjb - FACTS, NO X, '’.f; N ; =, FACTS * I s ; W,1; F„ [_ N*> 0 . F)* Ng 1; - ti _] v 

The ^NOJ^ in case the search fails may If one la confident be condensed, to ._, , 

As another example, to change all instances of the string EX>0 to ikAR in the 
definition of BLETCH: i' - BLETCH w _ [ X 1 'FOO*: J " BAR =|X „ h BLETC H 

IKFUT AND OUTFUT 

7, unary operator print - When performed, causes the current value to he printed 
out- Return* that ns its value. 

like % but inserts carriage return and line feed in typeout when number of 
characters on current output line reaches line length, 
unary operator set line length , for operator. If current value is a number 
not less than 1, line length is set to integer part of that number. 

RetuttiS currcnt value. 


n ,<>) 



IS 


tten road word , When performed, takes typed-in characters through the first 
« (space) and has the value of that string CHCluding the space. 

Item read ch a rjaejju? , Takes any one typed--ln character and returns it as 
value. 

like & hut ignores any earring* returns and line feeds In the string read in. 
EREOKS 

A few cases of Inscrutability in a strieg being processed, due most likely to 
a typing error, for which no particular default action is obvious, cause an error 
condition! processing is terminated, an error printout occurs f and than the program 
awuits a fresh typed-in string to evaluate. The error printout has three parts; 

(s) a code describing the fault detected; (b) the number of the evaluation level 
where the error occurred; (c) a "backtrace 111 giving; first, for the top level, 
the symbol whose evaluation waa in progress, with the character preceding It; 
ne«I, the Symbol being evaluated on the Second level, etc „ through the level 
where the error occurred,, giving for chit level the character string which caused 
the error (or in a few cases , the characters just after those causing the error). 

Ifi this backtrace, a character whose ASCII code is Less than is printed as f 1 
followed by the character with ]f!tf added to its ASCII code; except that the 
character whose code is $ is not pH cited it a 11- 

Error Codes; 

UCQ unclesed ^ucte- A 11 was encountered which had no terminating ^ (space) , 
^ DCS unclosed super^uote. A [[ had! no- matching. ]] r 

tfCP unclosed parenthesis. A ( had no matching ) , 

3CE storage capacity exceeded, the typed-in. String, Symbol definitions, 
all Levels * current values and search Strings, and the partial 
result of the operator being performed, all taken together exceed 
available memory* 

ffSD non - s ymbo 1 definition* An attempt was made to define something which 
is not a symbol* 

A5D at sign deficit ion, An attempt was made to redefine the permanent 
symbol ^ , 

I>IS decimal point in symbol, The meaningles* format sym. was encountered, 

PIS parenthesis in symbol. The meaningless format sym{ w££ encountered, 

IOP illegal operator, A character with no meaning was encountered (not 
quoted}, 

lOO illegal double operator, A meaningless concatenation of two characters 
was encountered, (Many such combinations, however, are not detec¬ 
ted and their first characters are ignored.) 

EAS evelusted argument Searches, Some form of search command occurred in 

s word e>n this level which Is being evaluated by t on a lower level, 
ATL argueent on top level- A T was processed on level 1. 

UTJT undefined tag. A goto (not a dispatch) referred to a tag not defined 
In that string.. 

UUQ unused opcode, Internal error in the STRING program, 

PPV pushdown overflow. Usually mesne maximum level depth exceeded. 

Kote: The following Error Codes relate to the particular input-output control 
features of the FDP-6 STRING program, 

\^\ G character evaluated. 

Lid (Time-sharing version only) line printer in, use* assignment not done. 
hTh no free blocks. DECtape used for output is full. 

NFF no free files. Not possible to initialize DECtspe for output. 




Error Codes {continued) 


FNF filt net found, Inpet file not found on specified device, 

UNA urtlE unable-. Specified DECtSpe drive not turned on, not selected, 
multiply selected, or has no tape, 

BDD bad directory, on Specified DECtOpe* 

TMD too many directories in core. One must be killed to make room for a 
new one - 

CNF {Time-sharing version only) unflappable- Specified DECtape unit's file 
directory may not be killed at thia time. 

INPUT-OUTPUT CONTROL 


The following i.uput -output Control features are those implemented in the FDP-d 
STRING program; where possible they were choSen to resemble those in other MAC 
PDP-6 system programs. Their usage and effects dlfC the same in both time-shartng 
and non-time-sharing versions of the program, 

binary operator designate Input file - The left operand is examined and the 
Last digit therein is taken as a DECtape unit number, (In the time¬ 
sharing version, additionally the unit Humber tf) refers to device DD£ 
and 9 refers to DDL,) If there U no digit in the operand> the most 
recent unit number given is assumed. The value of the right operand 
is then Interpreted aa a file name {two submarines separated by a space) 
according to the algorithm used by MACDMP. Subsequently, when DECtape 
input is turned on, input characters will come from the designated 
file. This operatot returns the left operand as its value, 
n unary operator initialise output file , Cets unit number from left operand 
as does * 5Leturns operand aS value- Turns on DECtape output and 
directs it to specified device- 

binary operator close output file - Ignores left operand except to return 
it as value,. Takes right operand as file name; DECtape output since 
Last or Is filed, with that name* 
binary operator delete file . Gets unit number and file name like $£, , and 
deLetes that file from specified device- Value Is left operand, 

,T* unary operator kill file directory - Gets unit number , deletes that unit's 
file directory from memory, {In time-sharing version, this command 
must be given prior to demounting tape,) 

Input characters are taken for the Cyp£d-tn String to be evaluated, and for per¬ 
formance of t 1 3 and * They ate not echoed until they are taken for one 

of these purposes by the program- The program provides a large buffet, located 
between the keyboard acd the program, for characters typed in. If a character 
is typed In t-ben this buffer la fullj that character is lost* 


Certain character* when typed in on the keyboard are filtered out and aft not 
put into the buffer for the program- 
L* ignored 

^ 11 Begin” tum on lino printer output 

[J^ '’End'" turn off line printer output 

1R ’"tope” turn on DECtape output 

H not tape 1 ' turn of! DECtape output 

"x*on" turn on DECtape input; this character I* treated specially* 

It is put into the type-in buffer, but when taken out of the buffer 


U. 


is performed and not passed on ro Che program. 
^ "s-off" turn off DECtape Input. 

IV torn on Teletype/uaer'a console output 
(W turn, off Tele type/user 1 s console output 



17 


& 

Ui 

LL 

£ 


l£ 


"Out" transfers to U&T. 

"OH" 7 

”'OFf"' V eon tiro 1 routing of coho Output to devices other then user's console 


control character quote, Causes the next typed-in character to go into 
the buffer without taking special action. Exceptions: 

^ still ignored 

this is entered in a special way such that it gets passed 
on to the progrea without special action 
carriage return carriage return and line feed are echoed; 

nothing is put into the buffer 

ALT MDDE/ESC this is entered in such a way that it will 

not terminate the typed-in string 
ftUMUi just cancels the F . 

’"beLl" quit, (This cakes use of the "console output disable flag" which 

is turned off whenever the program is ready to accept an input string,) 
Characters in the type-ip and type-out buffers are all erased, 'then 
fa) if the value of a typed-in string, or an error printout, 
is currently being output cn some device other than, or 
in addition to., the user's console: echo a backslash on 
the console, and disable console output (turn the flag 
on), When Che output is finished, echo another backslash 
to the console and turn the flag back off- 
(b) if the console output disable flag is on: erase all charac¬ 
ters in other device*' Output buffers, echo a backslaah os 
the ten*olei Sod output two backslashes on all devices 
selected for Oftor Output; then turn flag off and await 
a neu typed-in strlng- 

fc) otherwisej output two backslashes to the console and all 

devices Selected for error output; then await a new typed- 
in string- 


Input characters are taken initially from the user'a keyboard, Vhem a is read 

from the type-in buffer* and the s£ operator has previously been performed to select 
an input DECtspe tile, then characters ate taken, frtxn that file until the end-of- 
file ia reached or a 1^ ia typed in; then input reverta to the user's keyboard. 

Output characters are goners ted to echo typed-in characters, as the value of the 
typed-in string* in the performance of % And , and for error printouts. Output 
characters from all sources are routed to deviCO* according tp Pig. t- 





